home *** CD-ROM | disk | FTP | other *** search
/ The Human 3D 2001 (Reference Edition) / The Human 3D 2001 (Reference Edition).iso / Gksetup / data1.cab / Programmdateien / xray / hilfe.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-03-08  |  3.1 KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHilfe 
  3.    Appearance      =   0  '2D
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'Kein
  6.    Caption         =   "XRay-Viewer Hilfe"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3195
  15.    ScaleWidth      =   4680
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows-Standard
  18.    Begin VB.CheckBox ChkZeigen 
  19.       Appearance      =   0  '2D
  20.       BackColor       =   &H80000005&
  21.       ForeColor       =   &H80000008&
  22.       Height          =   195
  23.       Left            =   360
  24.       TabIndex        =   1
  25.       Top             =   2280
  26.       Width           =   255
  27.    End
  28.    Begin VB.PictureBox PicHilfe 
  29.       Appearance      =   0  '2D
  30.       AutoSize        =   -1  'True
  31.       BackColor       =   &H80000005&
  32.       ForeColor       =   &H80000008&
  33.       Height          =   2415
  34.       Left            =   240
  35.       ScaleHeight     =   2385
  36.       ScaleWidth      =   3825
  37.       TabIndex        =   0
  38.       Top             =   120
  39.       Width           =   3855
  40.       Begin VB.Label lblZeigen 
  41.          AutoSize        =   -1  'True
  42.          BackStyle       =   0  'Transparent
  43.          Caption         =   "Diese Hilfe bei jedem Start zeigen"
  44.          Height          =   195
  45.          Left            =   480
  46.          TabIndex        =   2
  47.          Top             =   2040
  48.          Width           =   2370
  49.       End
  50.    End
  51. Attribute VB_Name = "frmHilfe"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Option Explicit
  57. Const CSHelpSplashFile = "hlpsplsh.bin"
  58. Public Function getHelpSplash() As Integer
  59.   Dim bShowOnStart As Integer
  60.   bShowOnStart = 1
  61.   On Error GoTo errGetHelpSplash
  62.   Open CSHelpSplashFile For Input As #1   ' Open file for input.
  63.     Input #1, bShowOnStart
  64.   Close #1   ' Close file.
  65. errGetHelpSplash:
  66.   getHelpSplash = bShowOnStart
  67. End Function
  68. Public Sub setHelpSplash()
  69.   Open CSHelpSplashFile For Output As #1   ' Open file for input.
  70.     Write #1, ChkZeigen.Value
  71.   Close #1   ' Close file.
  72. End Sub
  73. Private Sub ChkZeigen_Click()
  74.   setHelpSplash
  75. End Sub
  76. Private Sub Form_Load()
  77.   Dim b As Boolean
  78.   Set PicHilfe = LoadPicture(FileExist(glaspath & "\xray\" & "hilfe.gif"))
  79.   PicHilfe.top = 0
  80.   PicHilfe.left = 0
  81.   ChkZeigen.left = 0.5 * ChkZeigen.Width
  82.   ChkZeigen.top = PicHilfe.Height - 1.5 * ChkZeigen.Height
  83.   lblZeigen.top = ChkZeigen.top
  84.   lblZeigen.left = ChkZeigen.left + ChkZeigen.Width
  85.   Me.Width = PicHilfe.Width
  86.   Me.Height = PicHilfe.Height
  87.   Me.top = xrayfeature.top + (xrayfeature.Height - Me.Height) / 2
  88.   Me.left = xrayfeature.left + (xrayfeature.Width - Me.Width) / 2
  89.   ChkZeigen.Value = getHelpSplash
  90. End Sub
  91. Private Sub lblZeigen_Click()
  92.   ChkZeigen.Value = Abs(ChkZeigen.Value - 1)
  93.   ChkZeigen_Click
  94. End Sub
  95. Private Sub lblZeigen_DblClick()
  96.   lblZeigen_Click
  97. End Sub
  98. Private Sub PicHilfe_Click()
  99.   Me.Hide
  100. End Sub
  101.